home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
psion
/
autoof.opl
< prev
next >
Wrap
Text File
|
1995-03-31
|
249b
|
18 lines
PROC autooff:
LOCAL aut%
LOCAL esup%(3)
call($138b)
DO
call($118e,addr(esup%()))
IF esup%(3)
aut%=-1
ELSE
aut%=90
ENDIF
IF call($178b)<>aut%
call($188b,aut%)
ENDIF
pause 200
UNTIL 0
ENDP